home *** CD-ROM | disk | FTP | other *** search
/ Aminet 45 / Aminet 45 (2001)(GTI - Schatztruhe)[!][Oct 2001].iso / Aminet / comm / news / newscoaster_b.lha / NewsCoaster / install_newscoaster < prev    next >
Text File  |  2001-07-16  |  4KB  |  112 lines
  1. ;
  2. ; $VER: Installer Script for NewsCoaster (c) Mark Harman (7.5.00)
  3. ;
  4.  
  5. (set #wrongOS  "NewsCoaster needs at least OS3.0 to run\n")
  6. (set #wrongMUI "NewsCoaster needs at least MUI3.8 to run\n")
  7. (set #wrongCPU "NewsCoaster needs at least a 68020 CPU to run\n")
  8. (set #icons_prompt "Which icons do you wish to install?\n")
  9. ;(set #charset_pl_prompt (cat "Do you wish to install ARexx scripts to deal with\n"
  10. ;    "charset?\n"))
  11. (set #NewsCoaster_dir (cat "Choose a folder to install NewsCoaster in - an\n"
  12.                            "extra drawer will be created. (If you wish to\n"
  13.                            "update NewsCoaster, please select the folder\n"
  14.                            "which contains the NewsCoaster folder.)\n"))
  15.  
  16. (set #done (cat "\nNewsCoaster has been succesfully installed.\n\n"))
  17.  
  18. (set OS_ver (getversion "exec.library" (resident)))
  19. (if (< OS_ver (* 39 65536)) (abort #wrongOS))
  20.  
  21. (set MUI_ver (getversion "MUI:libs/muimaster.library"))
  22. (if (AND (< MUI_ver (* 19 65536)) (<> MUI_ver 0)) (abort #wrongMUI))
  23.  
  24. (set cpu_type (database "cpu"))
  25. (if (< cpu_type "68020") (abort #wrongCPU))
  26.  
  27. (complete 0)
  28.  
  29. (set Icon_set
  30.         (askchoice
  31.                 (prompt #icons_prompt)
  32.                 (help @askoptions-help)
  33.                 (choices "Amiga 4 Colour" "NewIcons")
  34.                 (default 1)
  35.         )
  36. )
  37.  
  38. ;(complete 5)
  39. ;(set PL_yes
  40. ;    (askchoice
  41. ;        (prompt #charset_pl_prompt)
  42. ;        (help @askoptions-help)
  43. ;        (choices "Yes" "No")
  44. ;        (default 0)
  45. ;    )
  46. ;)
  47.  
  48. (complete 10)
  49.  
  50. (set NewsCoaster_def_dir @default-dest)
  51.  
  52. (set NewsCoaster_dir
  53.         (askdir
  54.                 (default NewsCoaster_def_dir)
  55.                 (prompt  #NewsCoaster_dir)
  56.                 (help    @askdir-help)
  57.         )
  58. )
  59.  
  60. (set NewsCoaster_dir (tackon NewsCoaster_dir "NewsCoaster"))
  61.  
  62. (complete 20)
  63.  
  64. (if (not (exists NewsCoaster_dir))
  65.         (makedir NewsCoaster_dir (infos))
  66. )
  67.  
  68. (copyfiles (source "NewsCoaster") (dest NewsCoaster_dir) (infos) (help @copyfiles-help))
  69. (copyfiles (source "NewsCoaster.guide") (dest NewsCoaster_dir) (infos) (help @copyfiles-help))
  70. (copyfiles (source "NewsCoaster.readme") (dest NewsCoaster_dir) (infos) (help @copyfiles-help))
  71. (copyfiles (source "default.index") (dest NewsCoaster_dir) (infos) (help @copyfiles-help))
  72. (copyfiles (source "gotoURL.rx") (dest NewsCoaster_dir) (infos) (help @copyfiles-help))
  73.  
  74. (if (= Icon_set 0)
  75.         (copyfiles (source "Icons/NewsCoaster.info") (dest NewsCoaster_dir) (help @copyfiles-help))
  76. )
  77.  
  78. (if (= Icon_set 1)
  79.         (copyfiles (source "NewsCoaster.info") (dest NewsCoaster_dir) (help @copyfiles-help))
  80. )
  81.  
  82. (set Rexx_dir (tackon NewsCoaster_dir "Rexx"))
  83.  
  84. ;(if (= PL_yes 0)
  85.     (if (not (exists Rexx_dir))
  86.         (makedir Rexx_dir (infos))
  87.     )
  88. ;)
  89. ;(if (= PL_yes 0)
  90.     (copyfiles (source "Rexx/after_fetchPL.rexx") (dest Rexx_dir) (help @copyfiles-help))
  91.     (copyfiles (source "Rexx/before_sendPL.rexx") (dest Rexx_dir) (help @copyfiles-help))
  92. ;)
  93.  
  94. (complete 60)
  95.  
  96. (copylib (prompt "MUI - BetterString.mcc") (source "MUI/BetterString.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  97. (copylib (prompt "MUI - BetterString.mcp") (source "MUI/BetterString.mcp") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  98. (copylib (prompt "MUI - NFloattext.mcc")   (source "MUI/NFloattext.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  99. (copylib (prompt "MUI - NList.mcc")        (source "MUI/NList.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  100. (copylib (prompt "MUI - NListview.mcc")    (source "MUI/NListview.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  101. (copylib (prompt "MUI - NListviews.mcp")   (source "MUI/NListviews.mcp") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  102. (copylib (prompt "MUI - TextEditor.mcc")   (source "MUI/TextEditor.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  103. (copylib (prompt "MUI - TextEditor.mcp")   (source "MUI/TextEditor.mcp") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  104. (copylib (prompt "MUI - NListtree.mcc")   (source "MUI/NListtree.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  105. (copylib (prompt "MUI - NListtree.mcp")   (source "MUI/NListtree.mcp") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  106.  
  107. (complete 100)
  108.  
  109. (message #done "\"" NewsCoaster_dir "\"")
  110.  
  111. (exit (QUIET))
  112.